home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
08 System Utilities
/
1750-C64.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
6KB
|
148 lines
10 POKE55,.:POKE56,160:CLR:Q$=CHR$(34):M$=CHR$(13):C$=","
15 PRINT"[147][212]EXT TO SCREEN OR PRINTER (S/P)?"
20 PRINT"[208]RESS X TO EXIT."
25 GETA$:IFA$="S"THEND=3:GOTO45
30 IFA$="P"THEND=4:GOTO45
35 IFA$="X"THEN72
40 GOTO25
45 OPEN1,D,7:CMD1,CHR$(27);"A":IFD=3THENPRINT"[147]"
50 GOSUB700:PRINT"[147][208]RESS C TO CONTINUE."
55 PRINT"[208]RESS X TO EXIT."
60 GETA$:IFA$="C"THENPRINT"[147]":GOTO75
65 IFA$="X"THEN72
70 GOTO60
72 CLOSE15:PRINT"[147][142]":END
75 PRINT"[197]NTER DISK DRIVE DEVICE NUMBER."
80 PRINT"(ENTER 0 TO EXIT.)"
85 PRINT" 8[145]":INPUTD:IFD=.THEN72
90 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO75
95 POKE2,36:POKE184,8:POKE185,.:POKE186,D
100 POKE183,1:POKE187,2:POKE188,.:SYS65472
105 CLOSE8:IFPEEK(783)AND1THENPRINT"[147]?DEVICE";D;"[157] NOT PRESENT":GOTO75
110 OPEN15,D,15
115 PRINT"[147][197]NTER FILENAME."
120 F$="":INPUTF$:IFF$=""THEN72
125 OPEN8,D,1,F$:INPUT#15,J$,O$,H$,N$
130 IFJ$<>"00"THENPRINT"[147]";J$;C$;O$;C$;H$;C$;N$:CLOSE15:CLOSE8:GOTO75
135 PRINT"[147][215]RITING FILE..."
140 FORI=1TO198:READY:PRINT#8,CHR$(Y);:NEXT
145 CLOSE8:CLOSE15:PRINT"...[196]ONE":
150 PRINT"[208]RESS <[210][197][212][213][210][206]>."
155 GETA$:IFA$=M$THENPRINT"[147]":GOTO75
160 GOTO155
200 DATA167,2,120,32,83,228,169,185
210 DATA141,20,3,169,2,141,21,3,88
220 DATA76,131,164,166,203,202,202
230 DATA202,240,12,202,240,12,202
240 DATA240,12,202,240,12,76,49,234
250 DATA162,6,44,162,0,44,162,2,44
260 DATA162,4,160,0,173,141,2,74
270 DATA176,10,74,144,3,136,208,5
280 DATA74,144,2,136,232,165,43,141
290 DATA2,223,141,4,223,165,44,141
300 DATA3,223,141,5,223,56,169,0
310 DATA76,52,3,139,227,167,2,124
320 DATA165,26,167,228,167,134,174
330 DATA136,1,136,176,76,72,178,0
340 DATA49,234,102,254,71,254,74
350 DATA243,145,242,14,242,80,242
360 DATA51,243,87,241,202,241,237
370 DATA246,62,241,47,243,102,254
380 DATA165,244,237,245,229,43,141
390 DATA7,223,169,208,229,44,141
400 DATA8,223,169,0,141,9,223,141
410 DATA10,223,142,6,223,152,208
420 DATA3,169,145,44,169,144,198
430 DATA1,141,1,223,152,208,10,169
440 DATA49,141,20,3,169,234,141,21
450 DATA3,230,1,76,49,234,0
600 IFD=4THENRETURN
605 PRINT" [208]RESS <[210][197][212][213][210][206]>[146]";
610 GETA$:IFA$=M$THENPRINT"[147]":RETURN
615 GOTO610
700 PRINT" [212]HIS PROGRAM WILL LET YOU USE A 1750"
705 PRINT"[210][197][213] ([210]AM [197]XPANSION [213]NIT) WITH A"
710 PRINT"[195]OMMODORE-64. [212]HE 1750 WAS DESIGNED"
720 PRINT"FOR USE WITH A [195]-128, WHOSE POWER"
730 PRINT"SUPPLY CAN SUPPLY THE EXTRA LOAD ON THE"
740 PRINT"+5 [214][196][195] LINE. [193] [195]-64 POWER SUPPLY"
745 PRINT"(EITHER THE ORIGINAL ";Q$;"BRICK";Q$;", OR ANY OF"
750 PRINT"THE 1.8 [193] REPLACEMENT SUPPLIES) ISN'T"
755 PRINT"HEFTY ENOUGH FOR A 1750. [217]OU SHOULD"
760 PRINT"TRY TO FIND A HEAVY-DUTY SUPPLY; A 4.3"
765 PRINT"[193] [195]-128 SUPPLY SHOULD BE FINE, BUT THE"
770 PRINT"COMPUTER CONNECTOR MUST BE REPLACED."
775 PRINT:PRINT" [212]HE 1750 IS ADDRESSED AT [201]/[207] 2, SO"
780 PRINT"IT MAY BE USED WITH A [211]WIFT[204]INK"
785 PRINT"CARTRIDGE (WHICH USES [201]/[207] 1) CONNECTED."
790 PRINT"[212]HE 1750 GIVES YOU 512[160][203]BYTES OF [210][193][205],"
795 PRINT"WHICH MAY BE USED FOR STORAGE. [212]HE [210][193][205]"
800 PRINT"MAY NOT BE ACCESSED DIRECTLY, BUT A"
805 PRINT"COMMAND MAY BE SENT TO THE [210][197][213] TO DO"
810 PRINT"ONE OF FOUR THINGS. [217]OU MAY [211][212][193][211][200],"
815 PRINT"[198][197][212][195][200], [211][215][193][208], OR [214][197][210][201][198][217]; THE FIRST THREE"
820 PRINT"OPERATIONS ARE SUPPORTED BY THE [194][193][211][201][195]
825 [141]600
830 [153]"7.0 USED BY THE LEN-128. (null)(null)ATN(null)LEFT$ TRANSFERS"
835 [153]"A BLOCK OF DATA FROM THE COMPUTER TO"
840 [153]"THE (null)VAL(null); ASCVAL(null)LENLEFT$ TRANSFERS A BLOCK OF"
845 [153]"DATA FROM THE (null)VAL(null) TO THE COMPUTER; (null)(null)ATN(null)"
850 [153]"INTERCHANGES BLOCKS OF DATA BETWEEN THE"
855 [153]"COMPUTER AND THE (null)VAL(null); (null)VAL(null)RIGHT$ASC(null) CHECKS A"
860 [153]"BLOCK OF DATA IN COMPUTER MEMORY"
865 [153]"AGAINST A BLOCK IN (null)VAL(null) MEMORY. ATN BLOCK"
870 [153]"MAY CONTAIN FROM 1 TO 65536 BYTES, AND"
875 [153]"MAY BE LOCATED ANYWHERE IN (null)VAL(null)/COMPUTER"
880 [153]"MEMORY. RIGHT$T TAKES ONE CLOCK CYCLE TO"
885 [153]"TRANSFER A BYTE IN EITHER DIRECTION OR"
890 [153]"TO (null)VAL(null)RIGHT$ASC(null) A PAIR OF BYTES, AND TWO"
895 [153]"CLOCK CYCLES TO (null)(null)ATN(null) A PAIR OF BYTES."
900 [153]"(null)O A 64 (null)BYTE BLOCK OF DATA MAY BE"
905 [153]"EITHER ASCVAL(null)LENLEFT$VALSTR$ OR (null)(null)ATN(null)LEFT$VALSTR$ IN LESS THAN"
910 [153]"70 MILLISECONDS. (null)HE (null)VAL(null) MEMORY IS"
915 [153]"VOLATILE; WHEN THE COMPUTER IS TURNED"
920 [153]"OFF, MEMORY CONTENTS ARE LOST."
925 [153]:[153]" (null)HERE ARE SEVERAL WAYS IN WHICH A"
930 [153]"1750 MAY BE USED; THIS PROGRAM IS FOR"
935 [153]"ONE OF THEM. (null)OU MAY (null)(null)ATN(null)LEFT$ UP TO EIGHT"
940 [141]600
945 [153]"PEEKATN(null)RIGHT$LEN PROGRAMS IN THE 1750, FOR LATER"
950 [153]"RETRIEVAL. (null)HE PROGRAMS MUST BE ABLE"
955 [153]"TO BE LOADED ";Q$;"FILENAME";Q$;",N (WHERE ";Q$;"N";Q$;" IS"
960 [153]"THE DEVICE NUMBER), AND MAY BE ANY"
965 [153]"SIZE. ATNFTER YOU READ THIS TEXT, YOU"
970 [153]"WILL GET A CHANCE TO CREATE A ONE-BLOCK"
975 [153]"DISK FILE ON ONE OR MORE DISKS. CHR$IVE"
980 [153]"EACH FILE A SHORT NAME, AND TRY TO PUT"
985 [153]"IT NEAR THE BEGINNING OF THE DISK"
990 [153]"DIRECTORY."
995 [153]:[153]" (null)ET'S ASSUME THAT THE FILENAME OF"
1000 [153]"THE ONE-BLOCKER IS ";Q$;"REU";Q$;". (null)O (null)(null)ATN(null)LEFT$ A"
1005 [153]"PROGRAM, LOAD";Q$;"REU";Q$;",8,1. (null)HEN LOAD YOUR"
1010 [153]"PROGRAM; DO (null)(null)(null) PRESS (null)(null)(null)(null)/(null)VAL(null)(null)(null)(null)VAL"
1015 [153]"DURING THE PROCESS. (null)EXT, PRESS ONE OF"
1020 [153]"THE KEYS IN THE TABLE AT THE END OF"
1025 [153]"THIS TEXT, TO (null)(null)ATN(null)LEFT$ THE PROGRAM. MID$OT"
1030 [153]"DOWN THE FILENAME ALONG WITH THE"
1035 [153]"PROGRAM NUMBER. (null)OU MAY LOAD AND (null)(null)ATN(null)LEFT$"
1040 [153]"SEVERAL PROGRAMS, WITHOUT HAVING TO"
1045 [153]"RELOAD ";Q$;"REU";Q$;". PEEKE SURE TO USE A"
1050 [153]"DIFFERENT NUMBER FOR EACH PROGRAM."
1055 [141]600
1060 [153]"(null)O ASCVAL(null)LENLEFT$ A PROGRAM, LOAD";Q$;"REU";Q$;",8,1."
1065 [153]"(null)HEN PRESS THE CORRESPONDING KEY FROM"
1070 [153]"THE TABLE. VALACH ASCVAL(null)LENLEFT$ MUST BE PRECEDED"
1075 [153]"BY LOAD";Q$;"REU";Q$;",8,1."
1080 [153]:[153]:[153]"(null)(null)(null)CHR$(null)ATN(null) (null)(null)(null)PEEKVAL(null) (null)(null)ATN(null)LEFT$ ASCVAL(null)LENLEFT$"
1085 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB( TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
1090 [153]" 1 LEN= ASC1 ASC1"
1095 [153]" 2 LEN(null)(null)(null)(null)(null)(null) ASC1 (null)LEFT$RIGHT$ASC(null) ASC1"
1100 [153]" 3 LEN= ASC3 ASC3"
1105 [153]" 4 LEN(null)(null)(null)(null)(null)(null) ASC3 (null)LEFT$RIGHT$ASC(null) ASC3"
1110 [153]" 5 LEN= ASC5 ASC5"
1115 [153]" 6 LEN(null)(null)(null)(null)(null)(null) ASC5 (null)LEFT$RIGHT$ASC(null) ASC5"
1120 [153]" 7 LEN= ASC7 ASC7"
1125 [153]" 8 LEN(null)(null)(null)(null)(null)(null) ASC7 (null)LEFT$RIGHT$ASC(null) ASC7"
1130 [152]1:[160]1:[139]D[178]3[167][153]""
1135 [137]600